home *** CD-ROM | disk | FTP | other *** search
/ Great Canadian Scientists / GCS_CD.iso / mac / PC / GCSData / atom_g.dxr / 00002_Help - Leave Help Scripts.ls < prev    next >
Encoding:
Text File  |  1996-09-01  |  753 b   |  39 lines
  1. on Help
  2.   global HelpMode, timer, NoQuiz, GoBack
  3.   if the frame <= 6 then
  4.     set HelpMode to 1
  5.   end if
  6.   if the frame > 6 then
  7.     set HelpMode to 0
  8.   end if
  9.   if HelpMode = 0 then
  10.     set timer to 0
  11.     HelpMovie(4)
  12.     set the puppet of sprite 6 to 0
  13.     set the puppet of sprite 7 to 0
  14.     set the puppet of sprite 8 to 0
  15.   end if
  16.   puppetSound(0)
  17.   go("Help")
  18.   set NoQuiz to 1
  19.   cursor(4)
  20. end
  21.  
  22. on LeaveHelp
  23.   global HelpMode, timer, NoQuiz, GoBack, rate
  24.   if HelpMode = 1 then
  25.     set NoQuiz to 0
  26.     go(2)
  27.   end if
  28.   if HelpMode = 0 then
  29.     go(7)
  30.     LeaveHelpMovie(4)
  31.     set the puppet of sprite 6 to 1
  32.     set the puppet of sprite 7 to 1
  33.     set the puppet of sprite 8 to 1
  34.     set timer to 1
  35.   end if
  36.   ClearTrackScripts()
  37.   cursor(-1)
  38. end
  39.